*** Figure 1 ***

use polingstation_data_foranalysis_.dta, replace

rdplot socdemvotes_2019 beskatningprind if nythovedstat!=., c(220.000) graph_options(title(Island & Rural Municiaplities Grant) xtitle("Tax base") ytitle("Incumbent vote share (in %)") ) nbins(100 50) 

rdplot socdemvotes_2019 beskatningprind if nytoeogyder!=., c(190.000) graph_options(title(Island & Rural Municiaplities Grant) xtitle("Tax base") ytitle("Incumbent vote share (in %)") ) nbins(100 50) 
